! KreisLoch_Makro
!Written BY  STEFAN FELBER VIENNA (TEL: 43-58-473)
!                     date: 91.09.03

! a = width
! b = height
! c = thickness
! d = diameter of circle hole
! e = visibility mask
! k = smoothness angle

k= 45
if (a<= d) or (b<= d) then 99
PRISM_ 14,c,    ! frame
0,0,e,
a,0,e,
a,b,e,
0,b,e,
0,0,-1,
a/2+sin(0*k)*d/2,b/2+cos(0*k)*d/2,13,        ! hole in frame
a/2+sin(1*k)*d/2,b/2+cos(1*k)*d/2,13,
a/2+sin(2*k)*d/2,b/2+cos(2*k)*d/2,13,
a/2+sin(3*k)*d/2,b/2+cos(3*k)*d/2,13,
a/2+sin(4*k)*d/2,b/2+cos(4*k)*d/2,13,
a/2+sin(5*k)*d/2,b/2+cos(5*k)*d/2,13,
a/2+sin(6*k)*d/2,b/2+cos(6*k)*d/2,13,
a/2+sin(7*k)*d/2,b/2+cos(7*k)*d/2,13,
a/2+sin(0*k)*d/2,b/2+cos(0*k)*d/2,-1
end

99:
PRISM_ 5,c,        ! frame without hole
0,0,e,
a,0,e,
a,b,e,
0,b,e,
0,0,-1

END
